home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / Examples / popf.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  1.4 KB  |  60 lines
  1. /**/
  2.  
  3. call rxmuiopt("DEBUGMODE SHOWERR")
  4.  
  5. app.Title="PopObject"
  6. app.Version="$VER: PopObject 1.0 (22.11.99)"
  7. app.Copyright="©1999, alfie"
  8. app.Author="alfie"
  9. app.Description="PopObject show"
  10. app.Base="POPO"
  11. app.SubWindow="win"
  12.  win.Title="PopObject"
  13.  win.ID="MAIN"
  14.  win.Contents="mgroup"
  15.   mgroup.0="popu"
  16.    popu.class="popasl"
  17.    popu.type="file"
  18.    popu.fontminheight=11
  19.    popu.fontmaxheight=20
  20.    popu.FilterMacro="parse arg a,b,c;return pos('.c',a)=0"
  21.    popu.domultiselect=1
  22.    popu.ACCEPTPATTERN="#?"
  23.    popu.rejectpattern="#?.o"
  24.    popu.string=string("url")
  25.    popu.dopattern=1
  26.    popu.sleepwindow=1
  27.    popu.initialpattern="#?"
  28.   mgroup.1=text("info")
  29.  
  30. res=NewObj("application","app")
  31. if res~=0 then call err(res)
  32.  
  33. call notify("win",closerequest,1,app,returnid,quit)
  34. call notify("url","newcontents","everytime",info,set,contents,triggervalue)
  35.  
  36. res=set("WIN","OPEN",1)
  37. if res~=0 then call err(res)
  38.  
  39. s=0
  40. do forever
  41.     call handle("APP","H",s)
  42.     do i=0 to h.num-1
  43.         if h.i="QUIT" then exit
  44.         if h.i="PO" then do
  45.             call DoMethod("LIST","GETENTRY","ACTIVE","E")
  46.             call set("S","CONTENTS",e)
  47.         end
  48.         say h.num-1 h.i
  49.     end
  50.     s=Wait(or(h.signals,2**12))
  51.     if and(s,2**12)~=0 then exit
  52. end
  53. exit
  54.  
  55. err: procedure expose sigl rxmuierror
  56. parse arg res
  57. say signl "["res"]"
  58.     say getrxmuistring(res) "in line" sigl-1 rxmuierror
  59.     exit
  60.